(desktop-clear): Don't kill dead buffers.

diff --git a/lisp/desktop.el b/lisp/desktop.el
index e2a90dd9e408707ad8d205e30cef141dc182acbb..b31f17353da2cf7b26d88f4d6240fc1b008dcb00 100644 (file)
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -258,6 +258,7 @@ and those listed in `desktop-clear-preserve-buffers'."
   (let ((buffers (buffer-list)))
     (while buffers
       (or (member (buffer-name (car buffers)) desktop-clear-preserve-buffers)
+         (null (buffer-name (car buffers)))
          ;; Don't kill buffers made for internal purposes.
          (and (not (equal (buffer-name (car buffers)) ""))
               (eq (aref (buffer-name (car buffers)) 0) ?\ ))